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