This isn't a USE but it is pretty cool (though it is semi-obfuscated):

#!/usr/bin/perl -w
use strict; my @a = ("\nr,kcelrPeH an AuJsthotre ");
{ my $a = pop @a; if ( 1 < length $a ) {
push @a, substr($a,0,length($a)/2), 
scalar(reverse substr($a,length($a)/2));
next; } print $a; } continue { redo if @a; }
[download]

I've occasionally used continue and the naked block trick to convert recursion into a stack queue sorta like above.

--
$you = new YOU;
honk() if $you->love(perl)