...
for( 1..3 ){
  print "enter the $_{st} number: ";
  {
    chomp(local $_ = <STDIN>);
    push @list, "${prefix}$_";
  }
}
...
[download]