#!/bin/perl

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

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

1;