use strict;
use warnings;

use IO::Handle;

my $fh = \*DATA;

print $fh->getlines;

__DATA__
oans
zwoa
mehra