sub draw_worm {
    my @worm = @_;
    my $head = shift @worm;
    $o->addstr($head->{y}, $head->{x}, '@');
    foreach my $segment (@worm) {
        $o->addstr($segment->{y}, $segment->{x}, 'o');
        if ($bleh) {
             #stuff
        }
    }
}
[download]