Select Code to Download

#your way.
my $far = @array[0];
my $dev = @array[3];
...

# using array slices properly
my ($far, $dev) = @array[0,3];