Select Code to Download

my %macs = (
  '00:11:22:33:44:55' => {
...
  },
  # ... and so on
);

my $mac = <STDIN>;
chomp $mac;
...
{
  print "Sorry, don't recognize that mac\n";
}