Search Results

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @phr = qw(acg acc aca caa); # used on method 1

my (%phrhash, %reahash);
@phrhash{@phr} = ('Phr') x @phr; # method 1...

Test with it:

#!/usr/bin/perl
#
use strict;
use warnings;

print "Please, choose three of the following characters (u,a,g or c): ";
my $answer = <STDIN>;
chomp $answer;
if ($answer =~...