@lines=<FILE>;
my $t = qw (@lines)