#my @tapes_to_eject=sort @_ ; my @tapes_to_eject=@_ ; #my @tapes_to_eject=sort { substr($a, 1) <=> substr($b, 1)} @_; # Test #print "@_";