use strict;
use warnings;

my @tapes_to_eject = qw{B1001R B0001R B4356R};
my $tapesStr = join ':', map {"\$$_"} sort @tapes_to_eject;

print "$tapesStr\n";

##</code><code>##

$B0001R:$B1001R:$B4356R