use strict;
#use warnings;

my %dockets;
my $format = 'format1';
my $data = <<TEST_DATA;
icecream "toasted sandwich" lemonade 8
icecream "hamburger BLT" water 12
icecream "tuna slosh" whiskey 22
icecream "dog food" gatorade 43
TEST_DATA

my @known_formats = (
       [ 'format1', '(.+)\s\"(.+)\"\s(.+)\s(\d{1,2})' ],
       [ 'format2', '(.+)\s\"(.+)\"\s(\d{1,2})' ],
       [ 'format3', '\"(.+)\"\s(\d{1,2})\s(.+)\s(.+)' ],
);

sub getfields {
    my @data_lines = split /\n/, shift;
    my ($meal, $drink, $dessert, $cost);
    my $docket_cnt = 0;
    for my $line (@data_lines) {
        if($format eq 'format1') {
             my $num_fields = (
                $dockets{$docket_cnt}{'dessert'},
                $dockets{$docket_cnt}{'meal'},
                $dockets{$docket_cnt}{'drink'},
                $dockets{$docket_cnt}{'cost'}
            ) = $line =~ /$known_formats[0][1]/;
            $docket_cnt++;
        }elsif($format eq 'format2') {
            my $num_fields = (
                $dockets{$docket_cnt}{'dessert'},
                $dockets{$docket_cnt}{'meal'},
                $dockets{$docket_cnt}{'cost'}
            ) = $line =~ /$known_formats[1][1]/;
            $docket_cnt++;
        }elsif($format eq 'format3') {
            my $num_fields = (
                $dockets{$docket_cnt}{'meal'},
                $dockets{$docket_cnt}{'cost'},
                $dockets{$docket_cnt}{'drink'},
                $dockets{$docket_cnt}{'dessert'}
            ) = $line =~ /$known_formats[2][1]/;
            $docket_cnt++;
        }
    }
}

getfields($data);

for my $docket_num (sort { $dockets{$a} <=> $dockets{$b} } keys %dockets) {
    print "=============================\n";
    print "[$docket_num] Meal: ", $dockets{$docket_num}{'meal'}, "\n";
    print "[$docket_num] Drink: ", $dockets{$docket_num}{'drink'}, "\n";
    print "[$docket_num] Dessert", $dockets{$docket_num}{'dessert'},"\n";
    print "[$docket_num] Cost: ", $dockets{$docket_num}{'cost'},"\n";
}