================ SmallProf version 2.02 ================
                              Profile of main.pl                       Page 1
       =================================================================
    count wall tm  cpu time line
        0   0.00000   0.00000     1:use strict;
        0   0.00000   0.00000     2:use warnings;
        0   0.00000   0.00000     3:
        1   0.00091   0.00000     4:my @array   = ("x y.g z 123", "a b.f c 456",
        1   0.00000   0.00000     5:my @include = ("b","q");
        1   0.00000   0.00000     6:my @keep;
        0   0.00000   0.00000     7:
        0   0.00000   0.00000     8:
        1   0.00001   0.00000     9:my %testHash = map { $_,1} @include;
        0   0.00000   0.00000    10:
        1   0.00000   0.00000    11:for my $tmp (@array){
     1404   0.00507   0.07800    12:        my @tokens = split /\s+/,$tmp;
     1404   0.00034   0.03200    13:      my ($test,$rubbish) = split /\./,
     1404   0.00282   0.01500    14:        if (exists $testHash{$test}) {
        0   0.00000   0.00000    15:            push (@keep, $tmp);
        0   0.00000   0.00000    16:        };
        0   0.00000   0.00000    17:}
        0   0.00000   0.00000    18:
        1   0.00013   0.00000    19:print keys %testHash , "\n";
        1   0.10416   0.00000    20:print "@keep";