Select Code to Download

    my $drink         = shift;
    my $positions_ref = shift;
    my $locations_ref = shift;

    my ($drink, $positions_ref, $locations_ref) = @_;