sub check_activity {

    # check activity - Exceptions, Failures, Active, Queued, Replication
    ## defaults ##
    my $lresults = {};
    my $WEEK = time - ( 7 * 24 ) * 3600;    # time a week ago...
    ## passed ##
    my $lacts   = shift;
    my $lyester = shift;
    my $act;

    print "here in check activity\n";
    #print "keys - " . join(',', keys %{$lacts}) . "\n";
        foreach $act ( keys %{$lacts} ) {
                print $act . " - " . $lacts->{$act}->{Status} . "\n";
                next if $lacts->{$act}->{Status} =~ /Completed$/;
                print "$act - $lacts->{$act}->{Status} - $lacts->{$act}->{Type} - $lacts->{$act}->{StartTime} - $lyester\n";
        }

    return $lresults;
}
OUTPUT:
here in check activity
9132201720006509 - Completed