use warnings; use strict; use My::Module; my ($x, $y) = My::Module->pairs(); print "ok" if $x == $y;