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