#!/usr/bin/perl

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