#!/usr/bin/perl -w
@names=qw/shanghai beijing nanjing hubei/;
print "Enter some numbers from 1 to 4, one per line,then press Ctrl-Z.\n";
chomp(@number=<STDIN>);
foreach(@names){
  print "$names[$_-1]\n";
}