#!/usr/bin/perl
###############################################################################
# print various symbols and environment variables
###############################################################################
print "-"x20, "ARGUMENTS", "-"x40, "\n";
printArray(\@ARGV);                          #send a reference to the array

print "-"x20, "INCLUDES", "-"x40, "\n";
printArray(\@INC); 

print "-"x20, "ENV.VARIABLES", "-"x40, "\n";
printHash(\%ENV);

print "-"x20, "SYMBOL TABLE", "-"x40, "\n";
printHash(\%main::);

print "-"x20, "SIGNALS", "-"x40, "\n";
printHash(\%SIG);

###############################################################################
sub printArray {
    $arrayref = shift;
#   foreach $element (@$arrayref) {               #dereference the argument
#       print "$element \n";
#   }
    for ($i=0; $i<@$arrayref; $i++) {             #dereference the argument 
        print "$arrayref->[$i] \n";
    }
}
###############################################################################
sub printHash {
    my $hashref = shift; 
    foreach $element (sort keys(%$hashref)) {          #dereference the arg
        print "$element = $hashref->{$element} \n";
    }
}
###############################################################################