#!/usr/local/bin/perl -w
#-d for debugger and -w for warnings

# a variable is the same as php which is $
$strName = "DosKey";

#print string's
print "\n\n\n";
print "This is my first Perl program.\n";
print "This is the second line.\n";
print "The person who wrote this program is: " .$strName . "\n\n"; 

# The array variables are better than php. It is used by the @ sign to declare it
# and expressed as a normall array after you have declared it. 

@food = ("ham", "cheese", "pickle", "tomato");
print "Food0: " .$food[0] . "\n";
print "Food1: $food[1] \n";
print "food2: $food[2] \n";
print "Food3: " .$food[3] . "\n\n";

# As you can tell you can play with variables as much as php which is an exellent beginning for me.

push(@meat, "turkey", "pork");
push(@meat, "pork", "turkey");
push(@meat, ("bacon", "sasuge", "pork", "turkey"));
$grub = pop(@meat);
print $grub;