Select Code to Download

 foreach my $yy ( keys %{$trans->{$state}} ) 
 {   $trans->{$state}->{$yy}  *  viterbi($yy, $r) ; }

 
@observation = qw(empty a a empty);

...
}
print "\n\n", viterbi(end, 3);