Help for this page

Select Code to Download

Select or download this

use strict;

...
    @columns = split(/,/, $key);
    print "$columns[0] has accessed $columns[1] $hash{$key} time(s).\n
+";
}

Select or download this

The Company Inc. has accessed pw_p1 1 time(s).
MIT has accessed pw_p1 2 time(s).
My Agency Inc. has accessed pw_p1 1 time(s).
My Agency Inc. has accessed pw_p2 1 time(s).