Select Code to Download

my $num  = 5;

...
  }
  return \@p;
}

sub get_latest {
  my ($year, $mon, $day, $num) = @_;
...

  return extract(\@arr, $num);
}

Exiting subroutine via last at script.pl line 57.
Label not found for "last FOO" at script.pl line 57.