#!/usr/bin/perl
use 5.020;
use warnings;
print "last time,press control z\n";
chomp(my @numbers=<STDIN>);
my @lines2 = qw(fred betty barney dino wilma pebbles bamm
-bamm
);
for my $number (@numbers) {
print $lines2[$number - 1], "\n"; }
IyEvdXNyL2Jpbi9wZXJsCnVzZSA1LjAyMDsKdXNlIHdhcm5pbmdzOwoKcHJpbnQgImxhc3QgdGltZSxwcmVzcyBjb250cm9sIHpcbiI7CgpjaG9tcChteSBAbnVtYmVycz08U1RESU4+KTsKCm15IEBsaW5lczIgPSBxdyhmcmVkIGJldHR5IGJhcm5leSBkaW5vIHdpbG1hIHBlYmJsZXMgYmFtbS1iYW1tKTsKCmZvciBteSAkbnVtYmVyIChAbnVtYmVycykgewoJcHJpbnQgJGxpbmVzMlskbnVtYmVyIC0gMV0sICJcbiI7Cn0K