#!/usr/bin/perl -w

use strict;
use Getopt::Long;

GetOptions(
            'thing=s' => \my @things,
          );

print join("\n", @things), "\n";