mysub($ref);

sub mysub{
    my $param = (@_);

    foreach $key (%$param){
        ($value1, $value2)= @$param{$key}
        ##do something...
    }
}