sub func($@)
{
     my($x,@y) = @_;
}

##</code><code>##

#!/usr/bin/perl -w

use strict;
use VariousModules;
use More::Modules;

# -- Globals -------

my $style = "Round";

# -- Functions ------

sub something
{
     my ($new_style) = @_;
}

# -- Main Code ------

my $thing = something($style);
something_else($thing);

# -- End ------------