This seems to be wrong

[Parrot Raiser]

This code:
#! /home/guru/bin/perl6

# Ask for some numbers from 1 - 7
# and verify that they are in range

my @names = < fred betty barney dino wilma pebbles bamm-bamm >;

my @inputs = lines();

for @inputs {
    if $_ ~~ 1..7 {
            say @names[$_-1];
    }
    else {
       say "$_ out of range 1..7";
    }
}

# End

Works for single-digit values:
7
3
8
2
1
0
4
bamm-bamm
barney
8 out of range 1..7
betty
fred
0 out of range 1..7
dino

but seems to have a problem with larger numbers:

7
3
21                              <--------- This
2
1
0
4
bamm-bamm
barney
(Any)                      <----------- Produces this
betty
fred
0 out of range 1..7
dino

(Usage adopted from http://tinyurl.com/hd2bxyv ; am I misreading that?)