sub routine{
    my %was = % {shift;};
}

routine(\%hash;)