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