use strict;
use warnings;

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

print "$tapesStr\n";