use Env;
my $n = $ENV{'NOTEUSERS'};
for (split /[\s\n]/, $n) {print "key: \"$_\"\n" if ($_)}