print "Patterns\t"; print "@pats";             print "\n";
        my $length = @pats;
        print "Total Patterns are: $length"; print "\n";