my @keys = sort {
    my @a = split '-', $tapes{$a};
    my @b = split '-', $tapes{$b};
    $a[-1] cmp $b[-1]
} keys %tapes;
foreach my $k (@keys) {
    print "$k $tapes{$k}\n";
}