Select Code to Download

    while (<>) {
        my @record = split /,/;
        my $key = shift @record;
        $list{$key} = \@record;
    }

    print join "\n", values(%list), '';