my $x = 2**1024;
for( map {$x+$_} 0..2){  
  print qq|$_\n|;
}