Select Code to Download

@array = ( [5,7,2],[9,4,8],[1,6,3]);
after sort results= ( [1,2,3],[4,5,6],[7,8,9] );

#!/usr/bin/perl
use Data::Dumper;

...
   }

print Dumper($sample);