#!/usr/bin/perl


@array = ([8,9,10], [4,5,6], [7,8,9]);



@sorted = sort {$a->[1] <=> $b->[1] } @array;

print "$sorted[0][0]\n";
print "$sorted[0][1]\n";
print "$sorted[0][2]\n";
print "\n";
print "$sorted[1][0]\n";
print "$sorted[1][1]\n";
print "$sorted[1][2]\n";
print "\n";
print "$sorted[2][0]\n";
print "$sorted[2][1]\n";
print "$sorted[2][2]\n";
print "\n";