1.	my $sheet;
2.	my $count = -1;
3.	
4.	while( <DATA> ) {
5.	chomp;
6.	$count++;
7.	# skip header
8.	 next unless $count;
9.	my $row;
10.	 @$row = split( /,/, $_ );
11.	push @$sheet, $row;
12.	}

##</code><code>##

foreach my $row ( sort { $a->[1] <=> $b->[1] } @$sheet ) {
  print join( ',', @$row ), "\n";