my ($k, $v);
$v =~ /C5$/ and print "$k $v\n" while ($k, $v) = each %tapes;
$v =~ /P5$/ and print "$k $v\n" while ($k, $v) = each %tapes;

##</code><code>##

my (@C5, @P5);
while (my ($k, $v) = each %tapes) {
    $v =~ /C5$/ ? push @C5, "$k $v\n" 
                : push @P5, "$k $v\n";
}
print @C5, @P5;

##</code><code>##

my @P5;
while (my ($k, $v) = each %tapes) {
    $v =~ /C5$/ ? print "$k $v\n" : push @P5, "$k $v\n";
}
print @P5;