Select Code to Download

syntax error at ./script.pl line 8, near ""facts":"

my $DATA = {
            facts => [
                {
...

print $DATA->{facts}[0]{name}; # A
print $DATA->{facts}[0]{type}; # Normal

#!/usr/bin/perl
use warnings;
...

print $DATA->{facts}[0]{name}; # A
print $DATA->{facts}[0]{type}; # Normal