@links =
(
    [1,2,3],
    [4,5,6],
    [7,8,9]
);

##</code><code>##

my @urls = map { $_->[0] } @links;

##</code><code>##

@urls = (1,4,7);