my $base = ("A"|"C"|"G"|"T"); # what is this? $base is now 'W'
#...
foreach $base ($sequence){  # $sequence is a scalar, not an array
#...
}