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

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

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