open (FILE,"$ARGV[0]") or die;
@list =<FILE>;
close (FILE);
my $f =join ("",@list);
my @t = split ("\n",$f);