#!/usr/bin/perl -w
use warnings;

sub printElement(\%$)
{
   my %hash1 = %{($_[0])};
   my $key = $_[1];
   print $key." ".$hash1{$key}."\n";
}

my %hash = (0 => 'a', 1 => 'b', 2 => 'c');
while(($key) = each(%hash))
{
   &printElement(\%hash, $key);
}