#!/usr/bin/perl
#
# Name : Matthew Reeves
#
# Basic output options in Perl; more or less a "Hello World" program
#
#use diagnostics;
#use warnings;
use strict;

my $username = 'mdreeves';

my ($food1 , $food2 , $food3) = ('Chipotle' , 'Charleys' , 'Old Chicago');

print "\n1."." Matthew Douglas Massey Reeves\n";
print "2. $username\n";
print qq(3. Computer Science / IA Concentration\n);
printf ("4. %s, %s, %s\n", $food1 , $food2 , $food3);
print "5. My apartment\n";
print q(6. "Evanescence")." (self-titled album)\n";
print "7. Flammable and Inflammable have the same definition.\n\n";