#! /usr/bin/perl -w

################################################

# aminoacids.pl
# Version 1

# Robert D. Cormia
# UCSC Programming for Bioinformatics II
# October 10, 2003

################################################


use strict;

my $Ala ='A'; # scalar variable Ala
my $Lys ='K'; # scalar variable Lys
my $Glu ='E'; # scalar variable Glu
my $Met ='M'; # scalar variable Met
my $Ser ='S'; # scalar variable Ser

print "\$Ala: $Ala\n";
print "\$Lys: $Lys\n";
print "\$Glu: $Glu\n";
print "\$Met: $Met\n";
print "\$Ser: $Ser\n";
print "\n";

my @aminoacids;

	@aminoacids =qw(Alanine Lysine Glutamic_Acid Methionine Serine);

print "Aminoacids are: $aminoacids[0],$aminoacids[1],$aminoacids[2],$aminoacids[3],$aminoacids[4]\n";


my %code_1to3;

	%code_1to3 =(
			'A' => 'Ala', 'K' => "Lys", 'E' => 'Gly',
			 'M' => 'Met', 'S' => 'Ser'

		);

my %code_3to1;

	%code_3to1 =(
			'Ala' => 'A', 'Lys' => "K", 'Glu' => 'E',
			 'Met' => 'M', 'Ser' => 'S'

		);

my %aa;

%aa = (	$Ala => $aminoacids [0], $Lys => $aminoacids [1],
		$Glu => $aminoacids [2], $Met => $aminoacids [3],
		$Ser => $aminoacids [4],
);

print "Key: A\t\t value: $code_1to3{'A'}\n";
print "Key: K\t\t value: $code_1to3{'K'}\n";
print "Key: E\t\t value: $code_1to3{'E'}\n";
print "Key: M\t\t value: $code_1to3{'M'}\n";
print "Key: S\t\t value: $code_1to3{'S'}\n\n";

print "Key: Ala\t\t value: $code_3to1{'Ala'}\n";
print "Key: Lys\t\t value: $code_3to1{'Lys'}\n";
print "Key: Glu\t\t value: $code_3to1{'Glu'}\n";
print "Key: Met\t\t value: $code_3to1{'Met'}\n";
print "Key: Ser\t\t value: $code_3to1{'Ser'}\n\n";

print "Key: Ala\t\t value: $aa{$Ala}\n";
print "Key: Lys\t\t value: $aa{$Lys}\n";
print "Key: Glu\t\t value: $aa{$Glu}\n";
print "Key: Met\t\t value: $aa{$Met}\n";
print "Key: Ser\t\t value: $aa{$Ser}\n\n";

__END__