my @Records = sort {lc($a) cmp lc($b)} @Records
 and 
my @Records = sort {$a cmp $b} @Records
my @Records = sort { $a[0] cmp $b[0] } @Records