.... loop ....
@array = ($refnum, $scalar);
  push @chunk, @array;
  print "@array\n";
  $refnum++;
  next;
}
warn "\ndebugging: @chunk\n";

print "delete?: ";
chomp (my $number = <STDIN>);
delete ($chunk[$number]);

open (TO_WRITE, ">$ARGV[0]");

while (<TO_WRITE>) {

  print TO_WRITE @chunk;
}