use strict;
use warnings;

package NewChomp;
use Data::Dump qw/pp dd/;

use subs qw/chomp/;

sub chomp {
    $_[0] =~ s/\n$//;        # adjust here
}

pp my $line ="abcd\n";

chomp $line;

pp $line;