Well, there's a couple of ways to do it:

my($scalar, @restofarray) = @array;
[download]

or, even simpler...

my $scalar = shift(@array);
[download]

and @array will contain the remainder.

disclaimer: ignoring differences between arrays and lists for the sake of simplicity