Perl

• Masyvą galima sukurti krūčiau:

@masyvas = qw (pirmas antras trečias);

• Hash'ą - irgi:

%hashas = qw (
  vardas reikšmė
  antras_vardas antra_reikšmė
  trečias_vardas trečia_reikšmė
);

• STDIN'as paimamas iš <STDIN>:

$kintamasis = <STDIN>;

# Jei kintamasis prasideda žodžiu "Linas"
if ($vardas =~ /^Linas/)
{
  # ...
}

# Jei kintamasis baigiasi žodžiu "Linas"
if ($vardas =~ /Linas$/)
{
  # ...
}

# Gali būti "Linas", "lINAS", "LiNaS", ...
if ($vardas =~ /Linas/i)
{
  # ...
}