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