Some kind of statement about perl

stoopid.pl

#!/usr/bin/perl

# Like all art, the interpretation is up to the viewer.


# Written 2012 by Jason Stephenson and Thomas Berezansky.

use strict;

use Data::Dumper;

&stoopid('one',1,'two',2);

print Dumper { 'one', two => 'three', four => 'five', 'six'};

sub stoopid {
    my %hash = @_;
    print Dumper \%hash;
}