Select Code to Download

#!/usr/bin/perl

...
@lookup{map {$_->{key}} @$array_of_hashes_ref} = @$array_of_hashes_ref
+;

print "$lookup{$_}{key}, $lookup{$_}{name}\n" for @$array_ref;

1, label1
2, label2
3, label3
4, label4
5, label5