Select Code to Download

my($datetime, $data) = /^(\w+-\d+,[\d:.]+),(.*)/;

push @{ $data{$datetime} }, $data;

foreach my $key (sort keys %data) { ...

    print $key, ',', join(',', @{ $data{$key} }), "\n";

#! perl -w

...
foreach my $key (sort keys %data) {
    print $key, ',', join(',', @{ $data{$key} }), "\n";
}

Feb-21,19:08:05.2,$GP,48.96,90.92,45.69,$BM,3.89
Feb-21,19:08:06.4,$GP,48.92,90.92,45.70
...
Feb-21,19:08:10.8,$GP,48.92,90.94,45.63,$BM,9.68
Feb-21,19:21:20.5,$BM,5.05
Feb-21,19:21:20.8,$BM,7.36