Select Code to Download

   my $rand_position = $positions_ref->[ rand( $#{$positions_ref} ) ];
   my $rand_location = $locations_ref->[ rand( $#{$locations_ref} ) ];

#!/usr/bin/perl
use strict;
...
    return 1;
    }