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