# my $graphic = buildbox( $x, $y, $z );
sub buildbox
{   my $length = shift; my $height = shift; my width = shift;
    ...
}