my %hash = map  { $key++ => $_ }
           grep { $_ != 0 }
           map  { split /,/ }
           $line =~ /action \( ( [^)]+ ) \) /gx;