my @lines = <DATA>;
my @sans_hashes = map { /^#(.*)/s ? $1 : $_ } @lines;
my @without_comment = grep !/^#/, @lines;