Select Code to Download

use strict;
use warnings;
...
push @rows, $_ while $_ = $csv->get_row;
@rows = sort {$a->[1] <=> $b->[1]} @rows;
print join "\n", map {join '|', map {$_ || ''} @$_} @rows;

02/28/2009|01463314931||19.99|9802|1.0|
02/28/2009|02062672169||4.99|9801|1.0|
02/28/2009|71171973992||19.99|9749|1.0|
02/28/2009|78513836100||4.96|9639|1.0|