sub my_chomp {
    my $str = shift;
    chomp($str);
    return $str;
}