#!/bin/perl
use strict "vars";
use warnings;
our ( @friends, @dogs, $key, $value );
my($name,$pal,$money);
$name="Tom";
@friends=qw(A B C );
@dogs = qw(a b c);
local $main::dude="Tom";
my $pal = "another name";
while(($key, $value) = each (%main::)){
print "$key:\t$value\n";
}