#!/usr/bin/perl
use warnings;

 my $dna="aattggcc"; 
 $dna=uc$dna; 
print "\n dna: $dna\n";

# code for all possible combinations ? 

exit;