#!/usr/bin/perl

my $sheet;
my $count = -1;

while( <DATA> ) {
  chomp;
  $count++;
  # skip header
  next unless $count;
  my $row;
  @$row = split( /,/, $_ );
  push @$sheet, $row;
}

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