Select Code to Download

Useless use of a constant in void context at yourscript.pl line 7.
Useless use of a constant in void context at yourscript.pl line 7.
Useless use of a constant in void context at yourscript.pl line 7.
Useless use of a constant in void context at yourscript.pl line 7.
Useless use of a constant in void context at yourscript.pl line 7.

my @userids = ( 121,122,123,124,125,126 ); #etc...

if ($userid[0] == 121) { do something... }
if ($userid[1] == 122) { do somthing else... }

#! perl
use warnings;
...
userid[4]=125
userid[5]=126
userid[6]=127