...
for (@le_data) {
    my @line = split /\s+/;
    if ($line[4] >= 50.000) { 
        my $width = 11;
        printf "%s%${width}s%${width}s\t\t%.6g\n", @line[0,1,3,4];
    }
}