Select Code to Download

sub count_orientation {
    my $ref = shift;
...
    }
}
&count_orientation ($ref_end, \%error_start, \%score);

sub foo {
 my $hashref = shift;
...
%x = (a => 1, b => 2);
foo(\%x);
print $x{a};