Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
@empl_lookup{@employee_ids} = @employee_names;
# Now, you can look up employee names by ID:
print $empl_lookup{1236};         # Hi there, Jim!

#!/usr/bin/perl -wl
use strict;
...
$foo = { map { $a[$_] => $b[$_] } 0..$#a };

print $foo->{key1};     # Prints 'val1'