$var1 =~ s/,/./;
$var2 =~ s/,/./;

if(($var1 - $var2) == 0) {
  print "gleich\n";
}
else {
  print "ungleich\n";
}