use strict;
use warnings;
use LWP::Simple;

sub stockquotegetter {
    my @quotes;
    my $html = get("http://www.iex.nl/Koersen/Aandelen.aspx")
      or die "Couldn't fetch the stock quotes";
      my(@url,@url1,@url2);
    foreach my $aandeel (@_) {
        @url = split( /Realtime koers $aandeel/, $html );

        @url1 = split( /LastPrice"><span>/, $url[1] );
        @url2 = split( /</, $url1[1] );

  #$html =~ m{basevalues['11754LastPrice'] =  ([\d,]+)  ;};
  #printf $_;
  #printf $sales_rank
  #$html =~ m{ '11754LastPrice'] = (.*?);}i;       # extract destination of link
  #$url = $1;
        print "$aandeel $url2[0]\n";
        push( @quotes, $url2[0] );

    }
    print @quotes;
}
print stockquotegetter(
    qw(Aegon Aperam ING ASML DSM Boskalis KPN Randstad PostNL TomTom));