use strict;
use warnings;

use File::Map 'map_file';

map_file my $map, '/usr/share/dict/words', '<';
while( $map =~ m/^(wal.*)$/mg ) {
  print "$1\n";
}