#!/usr/bin/perl

use warnings;

#Chapter 3, Exercise 2
@name = qw / fred betty barney dino Wilma pebbles bamm-bamm /;
@getnum = map {chomp; $_} <STDIN>;
foreach $num(@getnum) {
	print "\nNo".$num."\tname:".$name[${num}-1]."\n";
}