my @arr = (5 .. 10);
call_sub(@arr);
sub call_sub {
  print "\n\n@_\n\n";
  for (0 .. 4) {
    print "$_\t@_\n";
  }
  print "\n\n";
}