my @list;
while(my $l = <$fh>){	push(@list,split(/ /,$l));
}