my $foo = '';
open FILEHANDLE, '+>', \$foo or die $!;
print FILEHANDLE "Contents of File";
seek(FILEHANDLE,0,0);
my @contents = <FILEHANDLE>;
close FILEHANDLE or die $!;
print 'From $foo: ', $foo, $/;
print 'From file read: ', @contents, $/;