my @machines=("host1","host2","host3");
my %macs=();

for my $machine (@machines) {
  my $macraw=`getmac $machine`;
  if ($macraw =~ /(match something)/) {
    $macs{$1}=$machine;   
  }  
}

print "$macs{$_} $_\n" for (keys %macs);