Would this do it?

my %hash = @_;
[download]

#!/bin/perl5

use strict;
use warnings;

my %hash = (
  one => 1,
  two => 2,
);

my_sub(%hash);

sub my_sub{
  my %hash = @_;
  for my $key (keys %hash){
    print "$key -> $hash{$key}\n";
  }
}
[download]

update: added snippet

.