#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

print "\n\n";
print "\$_ = $_\n";

print "\n\n";
for ( 1 .. 10 ) { print "\$_ = $_\n" }

print "\n\n";
print $_ for {};

print "\n\n";
print Dumper $_ for {};

print "\n\n";
my $count = 0;
for ( sort keys %{ $_ } ) { print $count++, ":$_{$_} $_\n" };