use strict;
my @dmap = `map`;
my $mapsize = scalar @dmap;
foreach my $line (@dmap) {
   print $line;
}

print "Number of lines in \@dmap: $mapsize\n\n";