#!/usr/bin/env perl
use strict;
use warnings;

use Test::More tests => 1;
use Test::NoWarnings;

my @matrix = (
    [1, 2],
    [3, 4]
);

my $to_keep = 3;

my @matrix_filtered = grep { $_->[0] =~ /$to_keep/ } @matrix;