Select Code to Download

sub whatever
{
...
  push @last_elements, $_->[$#_] for @{$ar_data};
  return \@last_elements;
}

#!/usr/bin/perl

...
}

exit;