#!/usr/bin/perl -w

print 7+3, ' ', 7*3, ' ', 7/3, ' ', 7%3, ' ', 7**3, "\n";

$a=('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[1];
print "$a \n";

@b=(13..19);
print "$b[1] \n";

@c=0xff;
print "@c \n";

$c=0xff;
print "$c \n";

print "23 squared is ", &square(23), "\n";

sub square { return $_[0] ** 2;   }