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