mysub(
   FH => *INPUT,
   arr1 => \@arr1,
   arr2 => \@arr2
   );

sub mysub
{
   my %args = @_;

   my $first = $args{arr1}->[0];

}