#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Declare your hash
my %hash;

# Add the values below to the hash
$hash{1} = "a";
$hash{2} = "b";
$hash{3} = "c";

print "Hash after adding values\n";
print Dumper \%hash;

# Reinitialise hash - removing all previously added values
%hash = ('1' => 'a');

print "Hash when reinitialised\n";
print Dumper \%hash;