Select Code to Download

foreach (@array){
  print "$_\n";
...
foreach (sort keys %hash){
  print "$_         $hash{$_}\n";
}

1111   Fred
2222   Wilma
3333   Barney
4444   Betty

'1111 ' -> 'Fred'
'2222 ' -> 'Wilma'
'3333 ' -> 'Barney'
'4444 ' -> 'Betty'