$ perl tst.pl
notes_values2
magazines
$