print kill($$-$$,@$_) for [$$,$$], [], [], [$$,$$];

# or 

use Fcntl qw(:seek);

print SEEK_END, SEEK_SET, SEEK_SET, SEEK_END;

# or

$_ = "weirdness";

print y ueuu, y fuff, y sfss, y esee;