数値と数値文字列の比較

数値と数値文字列の比較で、Perlではコンテキストによって、以下はすべて『真』となります。
しかし、実コーディングするときは、数値は数値で『==』系で比較し、文字列は文字列で『eq』系で比較した方が良いに決まっています。

use strict;
my $wk = '123';
print "真('123' eq '123')", "\n" if ($wk eq '123');
$wk = 123;
print "真(123 eq '123')", "\n" if ($wk eq '123');
$wk = '123';
print "真('123' eq 123)", "\n" if ($wk eq 123);
$wk = 123;
print "真(123 eq 123)", "\n" if ($wk eq 123);
$wk = '123';
print "真('123' == '123')", "\n" if ($wk == '123');
$wk = 123;
print "真(123 == '123')", "\n" if ($wk == '123');
$wk = '123';
print "真('123' == 123)", "\n" if ($wk == 123);
$wk = 123;
print "真(123 == 123)", "\n" if ($wk == 123);