#!/usr/bin/env perl
use strict; use warnings;
my $a = 100;
sub bar($) {
    my $h = shift;
    return $h;
}

sub foo($) {
    my $a = shift;
    my @b = (1, "b");
    my %h = (1 =>'foo', 'food' => 'fight');
    bar \%h;
    our $c = scalar @b;
}
foo 5;