#!/usr/bin/perl
use strict;
use warnings;

my $pet = 'dog';
   $pet = 'cat';
   $pet = 'ferret';