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

#"better" way
my $far = $array[0];
my $dev = $array[3];

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