Select Code to Download

use warnings;
use strict;
...
my $record = join '', map {sprintf "%-*.*s", $_->[1], $_->[1], $_->[0]
+} @fields;

print $record;

Grand     Father    007 Bond StreetWibble Wobble                 Erewh
+on