sub printElement {
    my ($key,$val) = @_;
    print $key,' ',$val,"\n";
}

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