while (defined(my $chr = chop $revcopy))
{
    print "$chr\n";
}