Educational interlude ... let's do it with typeglobs!

#!/usr/bin/perl

$rose = "smells sweet to degree n";
*other_name = *rose;
print "$other_name\n";
[download]