sub describe {
$ref = shift();
my %person = %{$ref};
print "$person{name} is a $person{job}"
}

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print