sub sorter (@)
{

@beforeSort=@_;
print "before sort: $beforeSort[2][4]\n";
@sorted_by_drive=sort{$a->[4] cmp $b->[4]} @beforeSort;
print "Sorted by drive: $sorted_by_drive[2][4]\n";
return @sorted_by_drive;

}