%CodonMap = (
'GCA'=>'A', 'GCC'=>'A', 'GCG'=>'A', 'GCU'=>'A')
%reverse=reverse(%CodonMap);
for($i=0;$i<4;$i++)
{
$value.=$reverse{'A'};
print "$value\n";
}