#!/usr/bin/perl

use strict;
use warnings;

my ($nfa, $fh) = "mynotelist.txt";

open ($fh, "<", $nfa) or die "Can't open file $nfa $!\n";

my @notes;

while (<$fh>) {
   chomp;
   push @notes, split;
}

print "$_\n" for @notes;