#!/usr/bin/perl -w

use strict;

create_hash('out_file.txt');

sub create_hash {
   my $filename = shift;
   my %hash;
   my @symbol = ('D'..'M');
   my @protein = (
      'Aspartic Acid',
      'Glutamic Acid',
      'Phenylalanine',
      'Glycine',
      'Histidine',
      'Isoleucine',
      'Lysine',
      'Leucine',
      'Methionine',
      'Asparagine',
   );

   @hash{@symbol} = @protein; 

   open(FILE,'>',$filename) or die "can't write $filename: $!";

   while(my($key,$val) = each %hash) {
      print FILE "$key:$val\n";
   }
}