my ( $first_line ) = @array;

##</code><code>##

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

##</code><code>##

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

      # ...
  }