Perl Bucket Hat