$action = <>;
$data = &[$action];


##</code><code>##

$action = <>;
if ($action eq "go"){
#GO;}
elsif($action eq "pickup"){
#Pick it up buddy}

etc, etc....