slurp

#!/usr/bin/perl6
use v6;

my $filename = 'examples/phonebook.txt';

my @lines = lines $filename;
for @lines -> $line {
	print "L: $line";
}

#my %phonebook = map {split ",", $_}, @lines;
#my %phonebook = map {$_.comb(/\w+/)}, @lines;

my %phonebook = slurp($filename).comb(/\w+/);

my $name = prompt "Name:";
say %phonebook{$name};

Foo,123
Bar,78
Baz,12321