#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my $hoge = [ { device => 1 }, { device => 2 } ];
warn Dumper $hoge;

my @hage = grep { $_->{device} = 3 } @$hoge;

warn Dumper \@hage;
warn Dumper $hoge;

1;