trying to learn perl6

#!/usr/bin/perl6
use v6;
my $s = slurp('mprt');
my $urlbase = "http://uniprot.org/uniprot/";
my $ext = ".fasta";

my %proteinhash = gather for $s.match(
    rx/^^ (<[_A..Z0..9]>*) \n /,
    :g
) {
    #at this point i need to read the uniprot ids in, assign a key to each one, and also pass that id as a string to wget; what wget returns will be stripped and assigned as the value

    #shell("wget $urlbase$id$ext")
}

$cat mprt
A2Z669
B5ZC00
P07204_TRBM_HUMAN
P20840_SAG1_YEAST