use v5.12;
use XML::FeedPP;
use Data::Dumper;

my $source = 'https://news.ycombinator.com/rss' ;
my $feed = XML::FeedPP->new( $source );

my $data = [{}];
my $count;
foreach my $item ( $feed->get_item() ) {
    $data->[$count]{Title} = $item->title();
    $data->[$count]{Article} = $item->link();
    $count++;
}

say Dumper($data);