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