#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

(bless {}, 'Foo')->${\sub { print Dumper \@_ }}(1,2,3);

__END__