Select Code to Download

my @records = (['2004','4','23','other part of recrods'],
 ['2002','2','12','some other stuff']);

@records = sort {$a->[0]<=>$b->[0] || $a->[1]<=>$b->[1]
|| $a->[2] <=> $b->[2]} @records;