#!/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;