my $code = 'untested; no Perl on this machine...';
my @numbers = qw (5 6 7 2 4 5);
my @names = qw(Larry Randal Tom Jon);

@numbers = sort @numbers;
@names = sort @names;

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

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