package Scripts;

 sub do_something {}

 1;

##</code><code>##

 use Scripts;

 my @ARRAY = <DATA>;

 Scripts::do_something( \@ARRAY );