# Welcome to your first Perl script! Any line preceded with a '#' sign is a "comment". Perl ignores these lines; they are for human eyes only.

# Except for this one... This line tells the computer to run this script (file) using Perl.
#!usr/bin/perl

# -- VARIABLES --

# This is a variable "declaration"; it creates a variable and stores a value in it.
# Variables can hold words, numbers, and other data. You can change their value. This variable holds some sample DNA sequence.
my $test_sequence = "CCGATG";

# -- READING INPUT --

# Let's read in user input from the command line and assign it to a variable.
my $user_sequence = $ARGV[0];

# -- ANALYSIS AND PRINTING OUTPUT --

# The "print" statement will create output.
print "User sequence: " . $user_sequence . "\n";

# Does the user sequence exactly match the test sequence?
if ($user_sequence eq $test_sequence)
{
    print "We have a match!\n";
    print $user_sequence . " is equivalent to " . $test_sequence . "\n";
}
else
{
    print "no match";
}
