my $mysortref = sub {
    lc($data{$a}[0]) cmp lc($data{$b}[0]) 
        || 
    lc($data{$a}[1]) cmp lc($data{$b}[1])
};
@results = sort $mysortref (keys %data);