my @nums1 = map q|1234560| . $_, 1..9;
my @nums2 = map q|1321343| . $_, 10..99;

my @nums;

for (@nums1){
  push(@nums, $_);
}

for (@nums2){
  push(@nums, $_);
}

for (@nums){
  print "Number: $_\n";