@tapes = qw(tape1 tape2 tape1 tape3 tape2 tape1);
print join(' ',dedup(@tapes)),"\n";