use 5.010;
use strict;
use warnings;
use Data::Dumper;
use Config;

my @list = ("housekeeper" =~ /keeper/,
    "housekeeper" =~ /^keeper/,
    "housekeeper" =~ /keeper$/,
    "housekeeper\n" =~ /keeper$/);

say "list";
say scalar(@list);

print Dumper(@list);

foreach(@list) {
    say;
}


my @other_list = (1 == 1, 1 == 0, 0 == 0, 1 != 0);

say "other_list";
say scalar(@other_list);

print Dumper(@other_list);

foreach(@other_list) {
    say;
}