#!/usr/bin/perl

use CGI; 

$q = new CGI; 

print $q->header, $q->start_html; 

$message=$q->param('message'); 
$message_=$q->param('message_'); 

if ($message) {

  @a = split(' ', $message); 
  @b = split(' ', $message_);   

  $i = int(rand($#a+1)); 

  splice(@b, 0, 0, $a[$i]); 
  splice(@a, $i, 1); 

  $message = join(' ', @a); 
  $message_ = join(' ', @b); 

} else { 
  @a = ("one", "two", "three", "four", "five", "six"); 
  $message = join(' ', @a); 
  @b = (); 
  $message_ = ""; 
} 

print qq{
  <form>
    Current list: ($message_) <p> 
    <input type="submit" value="Proceed"> 
    <input type="hidden" name="message" value="$message"> 
    <input type="hidden" name="message_" value="$message_"> 
  </form> 
};