sub replace{

  my $chosen="$menu_items[$_]";    
  
  print "\nThe selected word:";
  print "\n$chosen";

  
}
1;