#!/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;
#!/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;