Perl | #! /usr/bin/perl use strict - Theo - m1902041

#! /usr/bin/perl

use strict;
use warnings;

my %hash = (
    'fermat' => ['dual core', '2G DDR'],
    'gauss'  => ['P4', '1G'],
    'euler'  => ['586', '64k']
);

foreach ('descartes', 'gauss', 'laplace')
{
    print "we have a machine named $_\n" if ($_ ~~ keys %hash);
}