#!/usr/bin/env perl

use strict;
use warnings;
use Data:: Dump;

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

1;