use strict; use warnings; use Data::Dumper; my $obj = bless {}, 'Foo'; my @args = ( 'hello' ); { @_ = ( $obj, @args ); print Dumper( \@_ ) } __END__ $VAR1 = [ bless( {}, 'Foo' ), 'hello' ];