@info = function to read input ;

for (sort third_field @info) {  
  print "Record: $_";
}

sub third_field {
  my $x = (split ' ', $a)[2];
  my $y = (split ' ', $b)[2];
  $y <=> $x;
}

##</code><code>##

$a0 = $a -> [2] 

##</code><code>##

$x = (split ' ', $a)[2];