missense,0.40851449275362317,1.0,-100
2.853,2.853,5.706,2.853,2.853,8.559,8.559,...
missense,0.40851449275362317,1.0,0
2.827,2.827,5.655,2.827,2.827,5.655,8.482,...
frameshift,0.056074766355140186,0.7697841726618705,-64
5.290,1.763,0.000,8.817,1.763,3.527,1.763,...
missense,0.44542772861356933,1.0,0

##</code><code>##

open FILE, "<", "weird" or die $!;
my @data = <FILE>;

for (my $line=0; $line<1; $line++) {
	print $data[$line];
        }

##</code><code>##

my @tmp = split(',', $data[0]);
print $tmp[$#tmp]."\n".$tmp[$#tmp-1];

##</code><code>##

missense,0.40851449275362317,1.0,
2.853,2.853,5.706,2.853,2.853,8.559,8.559,...
0