#!/usr/bin/perl
use warnings;
use strict;
if(1 == 1) { print \"1=1\n\"; }
if(1 != 2) { print \"1!=2\n\"; }
if(\"bob\" eq \"bob\") { print \"bob is bob\n\"; }
if(\"bob\" ne \"tim\") { print \"bob is not tim\n\"; }

if(\"rx-\" ne \"THEMOSTAWESOMESHITUWILLEVARSEE\") {
            } elsif(\"rx-\" eq \"-rx\") {
            } else {
            print \"i did nuthin!\n\";
}

my @array = (\"item1\",\"item2\",\"item3\");

my $i = 1;
foreach my $item (@array) { # foreach loop
            print \"$i - $item\n\";
            $i++;
}

for ($i=0;$i<5;$++) { # for loop
            print $i.\"\n\";  # C style for loop
}

foreach $item (@array) {
            while($item ne \"item2\") { # While loop
            print \"This isnt item2!\";
            }
}