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

##</code><code>##

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