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

Well, if you outcomment the sort there's little chance it will sort. And you may want to do a string compare instead of a numeric compare.