my @actions=("hits","smashes",  "bashes","whacks",
"pops","drives");my @places=    ("outta the park",         
"into the bleachers","over" .         " the fence"
                ,"into the"            ." stands")
                 ;srand;for     ($i=1;$i<=73;$i++)
            {$hit_index         =rand@actions;$hit 
           =$actions            [$hit_index];my $a     
          ;$place_i                          =rand 
          @places;                           $park
          =$places               [$place_i]; print   
          "Barry ".              "Bonds ". "$hit ";      
           print                 "number $i ";print
           "$park"               ."!!!\n";}my $end