for (1..20)
  {
  $x=int(($_*$_*$_)**0.5)+1;
  print $_,qq/  /,$x,qq/\n/;
  }

Note: this works well when doing perl -e and using " to surround the code...

PS: looking at this page later, and the output and i have no FARKing clue what it is supposed to be, other than 1 more than the square root of the cube of the numbers from 1 to 20... hmm