use Bio::Perl;

my $sequence = 'GCUGCCGGAGCAUGCGCG';
my %hash     = (
  A => 'Ala',
  C => 'Cys',
  G => 'Gly',
);
 
my $amino_acids = translate_as_string( $sequence );
my $string = join ' ', map{ $hash{$_} }split //, $amino_acids;
print $string;