$ perl -wle'print sin(0.5) == sub { sin(@_)    }->(0.5) ?1:0'
0

$ perl -wle'print sin(0.5) == sub { sin($_[0]) }->(0.5) ?1:0'
1