1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

#!/usr/bin/perl -w

@home = ("pwn ", "this ", "fool", ".\n");

$fizz = \@home;

print @home;

print $fizz;

print "\n...moar\n";

# this is the new shit

$foo = [1,2,3,4,5,6];

print $foo, "\n";

print "I am the reference $foo\n";
print 'I am the reference $foo', "\n";

# even moar

print "even moar!... hashes...\n\n";

# hashbrown

%hashbrown = (
     "spice" => "salt",
     "binder" => "eggs",
     );


$hashspice = $hashbrown{"spice"};

print "We use $hashspice to flavor the hashbrown.\n";


print "Use $hashbrown{"binder"} to keep it together.\n";

# end
print "\n That's all folks \n";
exit;