#!/usr/bin/perl
use warnings;
use strict;

{   package My;
    use overload
        '""' => sub { "@{ $_[0] }" };

    sub new {
        my $class = shift;
        bless [ @_ ], $class
    }
}

my $ar = 'My'->new(2, 3, 4, 5, 7);
print ref $ar ? "Reference\n" : "Not a reference\n";
print $ar, "\n";