my @names = qw/ fred betty barney dino wilma peblles bamm-bamm /;

while(<STDIN>) {
        print $names[$_ - 1], "\n" for grep {$_ <= @names} m/\d+/g;
}