@whoiam = ('hacker','professional','guru');
$nirvana = $icouldbe = 'hobbyist';
$iamreally = 'goof';
while ($iwish = shift @whoiam) {
    print "A $icouldbe is a $iamreally who thinks he's a $iwish.\n";
    $iamreally = $icouldbe;
    $icouldbe = $iwish;
}
print "A $icouldbe is a $iamreally who wishes he were a $nirvana.\n";