foreach (@array){
  print "$_\n";
}

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

##</code><code>##

1111   Fred
2222   Wilma
3333   Barney
4444   Betty

##</code><code>##

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