#!/usr/bin/perl
use strict;
use warnings;

my %hash = ("Common SW Component" => "4885");
my $variable = "foo\r";
print "variable ending with carrige return is =$variable=\n";
print "$hash{$variable}\n";