package Data::Dumper;

use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(Dumper);

sub Dumper{
    my ($arref) = @_;
    print "Element: $_\n" for @$arref;
    print $_,"\n" for keys %INC;
}