Select Code to Download

@links =
(
...
    [4,5,6],
    [7,8,9]
);

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

@urls = (1,4,7);