my %info;

for my $key ( qw( ALBUM ARTIST GENRE TITLE ) ) {
  $info{$key} = $flac->tags($key);
}

for my $key ( qw( trackLengthMinutes trackLengthSeconds bitRate fileSize ) ) {
    $info{$key} = $flac->{$key};
}

use Data::Dumper;
print Dumper \%info;