foreach my $val ( @le_data ) {
    my @line = split /\s+/, $val;
    my width = 11;
...