#!/usr/bin/perl

use strict;
use warnings;

my @temp = (2,3,4);
my @selects;
$selects[0] = [@temp];
my $refdates = $selects[0];
#my @workdts = @$refdates;
my @workdts = @$selects[0];

print "$_\n" for @workdts;

##</code><code>##

Global symbol "$selects" requires explicit package name at ./p line...

##</code><code>##

@{$selects[0]}