#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $file = 'myfilename.txt';
open my $fb, "<", $file
    or die "Can not open '$file': $!";

while (my $line=<$fb>) {
    chomp $line;
    say 'Line: ' . $line . ' Length: ' . length $line;
}

close $fb
    or warn "Can not close '$file': $!";

__END__

$ perl test.pl
Line: heaven Length: 6
Line: heavenly Length: 8
Line: heavenns Length: 8
Line: abc Length: 3
Line: heavenns Length: 8
Line: heavennly Length: 9