use strict;
use warnings;

my $x = "foo\n";
my $count = chomp $x;
print "$count\n";

my @arr = ("bar\n", "boo\n");
$count = chomp @arr;
print "$count\n";

__END__

Prints out:
1
2