while (<INFILE>) {
{
  . . .
  @array = ();
  @array = split (/\s+/, $line); 
  . .  .
}

##</code><code>##

my @array;
while (<INFILE>) {
{
  . . .
  push @array, split(/\s+/, $line); 
  . . .
}

##</code><code>##

if ($line =~ /^Happy\s+30/) {
 print $line . "\n";
}

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;

$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}