Select Code to Download

  my ( $first_line ) = @array;

  my ( $first, $second, $third ) = @array;

  sub myfunction( $ $ $ ) {
      my ( $param1, $param2, $param3 ) = @_;

      # ...
  }