#!/usr/local/bin/perl
$current_emotion = "grouchy";
print $current_emotion;
$current_emotion = "angry";
$current_emotion = "happy";
print $current_emotion;