Try this a moment:

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

Your actual problem is that arrays are zero-indexed, not one-indexed, but the above is a much more Perlish way to loop through all the values of the array.