thank you, i know that.i tried this code but it doesnt work.

#!/usr/bin/perl -w
use strict;
my @AoA;
my $aref;
my @array;
open (IN,'<result');
while(<IN>){
push @AoA,[split];
}
 for $aref ( @AoA ) {
  shift @$aref ;
 @array=push(@array,@$aref);
}
for my $array(@array){
print @$array;
}
[download]