#!/usr/bin/perl
some(TK=>OK,PERL=>COOL,LISP=>AWESOME);
print "Done!\n";
sub some
{
    %localhash = @_;
    foreach $localkey (keys (%localhash))
    {
      print "Key: $localkey \n Value: $localhash{$localkey}\n";
    }
}
[download]