#!/usr/local/bin/perl
# Jaime Prilusky, 2003
use Data::Dumper;

  my $foo = { 1 => "one", 2=> "two"};
  my $bar = \(a .. c);

  print "\nsimple procedural interface\n";
  print Dumper($foo, $bar);

  print "\nextended usage with names\n";
  print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);