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