#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my @a = (1, 17, 4);
say "first match suceeds" if (@a ~~ 17);
say "second match fails" unless ([1, 17, 4] ~~ 17);