use Data::Dumper::Concise; my $line = "123445678 45612 11 Steve Smith 11012015 16 1001 Main Street GA 7 Atlanta 30553"; my $result = parse_line($line, 1); die Dumper $result;