%destinations = (
    1 => [x, y, z],
    2 => [x, y, z],
    3 => [x, y, z]
);


sub <whatever> {
    quest::shout("I'm fucken superman!");
    my $rand_dest = quest::ChooseRandom(1..3);
    quest::gmmove($destinations{$rand_dest}[0], $destinations{$rand_dest}[1], $destinations{$rand_dest}[2]);
}