#! perl -slw
use strict;
use OpenGL qw[ :all ];

print "Version: ", $OpenGL::VERSION;

glutInit();
glutInitDisplayMode( GLUT_RGBA | GLUT_DOUBLE | GLUT_DEPTH | GLUT_ALPHA );
glutInitWindowSize( 1024, 768 );

my $main = glutCreateWindow( 'OGL1' );

glutDisplayFunc( \&render );
glutMainLoop();

sub render {
    glClearColor( 1, 1, 1, 1 );
    glClear(GL_COLOR_BUFFER_BIT);
    drawPolygon(
        #### One too many arguments!!! (I'd added an alpha value)
        [ 1.0, 0.0, 0.0, 0.0 ], # red 
        [ 0.25, 0.25, 0.25 ],
        [ 0.75, 0.25, 0.25 ],
        [ 0.75, 0.75, 0.25 ],
        [ 0.25, 0.75, 0.25 ],
    );
    glutSwapBuffers();
}

sub drawPolygon {
    glBegin(GL_POLYGON);
##    glColor3f( @{ shift() }[ 0, 1, 2 ] ); ## Works
    glColor3f( @{ shift() } ); ## Fails
    glVertex3f( @$_ ) for @_;
    glEnd();
}