Select Code to Download

#!/usr/bin/perl -w
$pi3.14159;
print"what is the $radius \n";
chomp($radius<STDIN>);
$circuit=2*$pi*$radius;
print"this is the circumference of a circle r $radius is\n";

#!/usr/bin/perl -w
@names=qw/shanghai beijing nanjing hubei/;
...
foreach(@names){
  print "$names[$_-1]\n";
}