Something like

open(FILE, $file) or die "$!";
my @file = <FILE>;
close(FILE);
foreach (@file) {
   if (m/$val[0]/) {
      $tmp = (split /\s+/,$_)[1];
      print $tmp . "\n";
   }
}
[download]

but the actual problem with the back quotes is that $2 should be escaped. (s/$2/\$2/) The reason is that you want awk to interpret $2, not Perl.

CC

Note that this is completely untested...