my $de = DataExtract::FixedWidth->new({
  header_row   => undef
  , heuristic => \@lines
  , cols       => [qw/name address num1 num2 num3/]
})

say $de->parse_hash( $_ )->{name} foreach @lines
[download]