$_[1]

##</code><code>##

my $parm1 = $_[0]; #sql statement
my $parm2 = $_[1]; #server
my $parm3 = $_[2]; #username
my $parm4 = $_[3]; #password
my $parm5 = $_[4]; #dbname
  # etc

##</code><code>##

my($sql_statement, $server, $username, $password, $dbname) = @_;

##</code><code>##

my $dbh=DBI->connect("dbi:Sybase:$parm2","$parm3", "$parm4" ) or die DBI::errstr;