#!/usr/bin/env perl 
# file: 08-snps.pl
use strict;
use warnings;
use autodie;

my $number_seqs = scalar @ARGV;

if($number_seqs != 2){
  print "Please provide two sequences \n";
}
for (my $i=0; $i<$number_seqs; $i++){
    if(length($ARGV[$i]) != length($ARGV[0])){
        print "Please ensure the sequences are the same length \n";
    }
}


 
my $var =  $ARGV[0];
print $var,"\n";

my $var2 = my $var[0];
print $var2,"\n";