sub rot {
  my ($str, $rot) = @_;
  scalar reverse ((reverse substr($str,0,$rot)) . (reverse substr($str,$rot)));
}