use strict;
use Data::Dumper;

my @sock_list;
for (my $i=0;$i<10;$i++) {
    $sock_list[$i] = "..." . $i;
}

print Dumper(\@sock_list);