sub foo {
    while (@_) {
        my $var = shift;
        my $val = shift;
        print "var = $var; val = $val\n";
    }
}

my @array = (a=>1, b=>2, c=>3);
foo(@array);