#!/usr/bin/perl -w

$a = 1;
$b = "One";

$a{3} = "three";
$a{"fred"} = 25;

print "$a{3} " . $a{"fred"} . "\n";

print 2/3;



if ($a == $b) {
	print "Hi!\n";
}


if ($a == $b) {
	print "Hi!\n";
}
else {
	print "Bye\n";
}


if ($a == $b) {
	print "Hi!\n";
}
elsif ($a eq "One") 
{
	print "Sly\n";
}
else 
{
	print "Die\n";
}
