use strict;
use warnings;
use Getopt::std;
my $le = "lethal_results.txt";
open(LE , "<", $le) or die ("Unable to open file $le: $!");
my @le_data = <LE>;
my $le_data;
close (LE);
for( my$i=1; $i<= @le_data; $i++)
{
my @line = split(/\s+/,$le_data[$i]);
my $width = 11;
if(@le_data[5] >= 50.000)
{ 
my $data = $le_data[$i];
chomp $data;
printf("%s%${width}s%${width}s%\t\t%.6g\n", $le_data[1],$le_data[2],$le_data[4],$le_data[6]);
}