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