open FILE, "<", "XYZ.txt" or die $!;
my @actionData = ();
my $i = 0;
while (my $line = <FILE>)
{
  if ( $line =~ /action/ ) 
  {
    push(@actionData, (split (/^\d+/, $line)));
    $i++;
  }
}