checkCurrency($hardwareValue1, $hardwareValue2);

sub checkCurrency{
    for (@_) {
        if ($currency eq "Euro (EUR)") {
            s/€//g;
        }elsif ($currency eq "Japan, Yen(JPY)") {
            s/Â/ /g;
        }elsif ($currency eq "United Kingdom, Pound(GBP)") {
            s/Â/ /g;
        }
    }
}