#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
################
my @AoH;
my $rec;
my $flag = 0;
open my $fh, '<', 'interface.txt' or die;
while (<$fh>) {
    chomp;
    if (/^(\w+\d{1}):\s+flags=(.*?>)/) {
        $flag = 1;
        $rec = {};
        $rec->{'interface'} = $1;
        $rec->{'flags'} = $2;
    } elsif (/ether\s+(.*$)/) {
        $rec->{'ether'} = $1;
    } elsif (/media:\s+(\w+)/) {
        $rec->{'media'} = $1;
    } elsif (/inet\s+(\w+\.\w+\.\w+\.\w+)/) {
        $rec->{'inet'} = $1;
    }  elsif (/status: (\w+)/) {
        $rec->{'status'} = $1;
    } elsif ($flag) {
        push @AoH, $rec;
        $flag = 0;
    }
}

close($fh);
print Dumper \@AoH;