Simple scalar assignments 

my $word = 'pony';           # 'pony'

my $noun = $word;            # 'pony'

my $name = ucfirst($noun);   # 'Pony'