use strict;
use warnings;
use File::Slurp;

my @array = read_file("filename");

my $lines = @array;

if ( $lines == 1 ) {
    print "total amount of lines are 1";
}
else {
    print "file has $lines lines";
}