#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use FileHandle;

my $fh = *DATA;
if( $fh ) {
        print $fh->getlines();
}else{
        print "no fh";
}

__DATA__
A
B
X
Y
Z