my @contents;

my $error = grabFile('myfile.txt', \@contents);

sub grabFile {
   open(FILE, $_[0]) || return ($!);
   @{$_[1]} = <FILE>;
   close(FILE);
   return 0;
}