#!/usr/bin/perl -w

use Data::Dumper;

{
  my $hashref;
  $hashref->{'foo'} = "bar";

  print Dumper($hashref);
}