How do I best pass arguments to a Perl one-liner?

Question

I have a file, someFile, like this:

$cat someFile
hdisk1 active
hdisk2 active

I use this shell script to check:

Answer 1

Pass it on the command line, and it will be available in @ARGV:

for d in 1 2
do
  perl -lne 'BEGIN {$d=shift} print "$d: OK" if /hdisk$d\s+/' $d someFile
done

Note that the shift operator in this context removes the first element of @ARGV, which is $d in this case.