use Scripts;

 my @ARRAY = <DATA>;

 Scripts::do_something( \@ARRAY );